home *** CD-ROM | disk | FTP | other *** search
/ Just Call Me Internet / Just Call Me Internet.iso / com / computer / casio_st / prog_fx / oisac2 / l_s6020.txt < prev    next >
Text File  |  1994-03-01  |  2KB  |  43 lines
  1. 5 ONERRORGOTO1000
  2. 10 MODE8:DIM:ERASEa,a$:DIMa(5),a$(1):a$(1)="Input":a$(0)="Delete":c$=CHR$(5)
  3. 20 CLS:PRINT"Input data (";s$;")";TAB(0);">Input,Delete,Clear,List,End ?";
  4. 30 a=ASC(INPUT$(1)):IFa>96 THENa=a-32
  5. 40 ONa-66 GOTO300,100,200,,,,100,,,500
  6. 50 GOTO30
  7. 100 CLS:PRINTa$(SGN(a-68));" data (";s$;")";TAB(21);"[EXE]:menu";:z=SGN(a-69)
  8. 110 LOCATE0,1:PRINTc$;s$;"?";
  9. 120 LOCATELEN(s$)+1,1:INPUT@12;z$:LOCATE0,0:IFz$="" THEN20 ELSEx=VALF(z$)
  10. 150 r=sa+z:s=sb+x*z:u=sd+x*x*z
  11. 160 sa=r:sb=s:sd=u:GOTO110
  12. 200 c=6
  13. 210 sg=sb/sa
  14. 220 sm=sd-sg*sb:IFsm<0 THENsm=0
  15. 250 si=SQR(sm/sa)
  16. 260 sk=SQR(sm/(sa-1))
  17. 280 RETURN
  18. 300 PRINTc$;"clear data  (Y/N) ?";
  19. 310 a$=INPUT$(1,@):IFa$<>"Y" ANDa$<>"y" THEN20
  20. 320 sa=0:sb=0:sd=0:GOTO20
  21. 500 CLS:GOSUB200:GOSUB580:i=1:GOSUB600:i=2
  22. 510 GOSUB600
  23. 520 z=ASC(INPUT$(1,@)):IFz=28 ORz=29 THEN20
  24. 530 IFz<>13 ANDz<>30 ANDz<>31 THEN520
  25. 540 IF(z=30 ANDi=1) OR(z=31 ANDi=c) THEN520
  26. 550 IFz=30 THENi=i-2
  27. 560 i=i+1:IFi=<c THEN510 ELSE20
  28. 580 DEFCHR$(255)="0808003E00"
  29. 590 a(0)=sa:a(1)=sb:a(2)=sd:a(3)=sg:a(4)=si:a(5)=sk:RETURN
  30. 600 RESTORE(600+i*10):READa$,b$:PRINTTAB(0);a$;TAB(7);":";b$;TAB(13);"=";a(i-1);:RETURN
  31. 610 DATACNT,n
  32. 620 DATASUMX,äx
  33. 630 DATASUMX2,äxý
  34. 640 DATAMEANX,äx/n
  35. 650 DATASDXN,xån
  36. 660 DATASDX,xånï
  37. 1000 IFERR=1 THENCLS:ONERRORGOTO0
  38. 1010 IFERL=120 THENRESUME120
  39. 1050 IFERL=210 THENc=3:RESUME280
  40. 1060 IFERL=260 THENc=5:RESUME280
  41. 1080 IFERL=150 THENLOCATE0,1:PRINTc$;"data over";:z$=INPUT$(1,@):RESUME20
  42. 1090 LOCATE0,1:PRINTc$;"not found";:a$=INPUT$(1,@):RESUME20
  43.